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1 TITLE mivsuston ; H Floa ign 00 
§ -IDENT /1-002/ 3; Fil THHSIGN.MAR EDIT: RNH1002 
4; 
09 5 FARRAR AAA AAE AEE AEAAAAAAAAEAEAAAEAR AERA AAEEAATEARATKE REA eee 
;* e 
09 5 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
8 :* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. a 
Bb 16 :* ALL RIGHTS RESERVED. * 
° cs 
000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
B60 \ ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 69 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * E3 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 07 
44 16 :* TRANSFERRED. * EC 
3 ® 
44 8 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * C5 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * AD 
a4 Y :* CORPORATION. * EC 
: *® 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 13 
44 Z :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * of 
3 ® 
0000 5 38 * 00 
444 § FRRAAA AERA RAAT AA ARTETA AAA ARATE AAA AAA AAAAAAAAAAAAAAAAAARERE Eee AAT eee 
0000 8; 
0000 93 FACILITY: MATH LIBRARY e 
0000 0 ;+ f 
0000 1; ABSTRACT: &5 
0000 ; 3 This module contains routine MTHS$HSIGN: aA 
0000 ; Return argi with sign of arg2. E4 
0000 4; A4 
5; B2 
7: BF 
8 ; VERSION: 1 88 
9; 12 
40 ; HISTORY: A 
41; 
g 3; AUTHOR: 3¢ 
rt $ Steven B. Lionel, 26-Jan-79: Version 1 
45 : MODIFIED BY: 
46 ; 50 
ib: i 
o CF 
| 
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; Edit History for Version 1 of MTHSHSIGN 


S$; 1-09) - Adapted from MTHSDSIGN version 1-001. SBL 26-Jan-79 

$ 3 1-002 - Eliminated reserved operand fault by including a special 
0 57 ; Logic branch for input arguments with value 0. 
308 2 : RNH 11-FEB-81 
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“SEP=1984 11: MTHRTL.SRCJ MTHHSIGN.MAR; 1 
-SBTTL DECLARATIONS 


INCLUDE FILES: 
NONE 


: EXTERNAL SYMBOLS: 
: NONE 
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3; MACROS: 

° 3 NE 

38 3 

3 3 PSECT DECLAR ATIONS: 

000: 0 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 

$000 3 
0000 ; EQUATED SYMBOLS: 
0000 3 NONE 
0000 3 
0000 
4464 s 

000 ; OWN STORAGE: 
0000 : NONE 
0000 90 ; 


MTHSHSIGN ; H Floating Transfer of Sign 16-SEP-1984 01:38:4 AX/VMS Ma v04-00 P 
1-002 MTHSHSIGN 09, Transfer of sign g-8 sats ri 94:38:98 ERTHRTL. SREIRTHHS IGN. MAR; 1 — 
3 -SBTTL MTHSHSIGN - H Transfer of Sign 
$4 p++ 
5 ; FUNCTIONAL DESCRIPTION: 
38 ; Return the value of argl with the sign of arg2. 
98 ; 
Ri : CALLING SEQUENCE: 
! ; CALL MTHSHSIGN (transfer_of_sign.wh.r, argl.rh.r, arg2.rh.r) 
103 ; 
104 ; INPUT PARAMETERS: 
00 105 ; The two input parameters are H floating-point 
00 1 § 3 values and are call-by-reference. 
000 108 
000 199 : IMPLICIT INPUTS: 
0000 111; _ 
9009 118 : OUTPUT PARAMETERS: 
000 113; Because the H result is greater than 64 bits, it is returned 
0000 114; as the first argument by reference, in accordance with 
444 12 3 system standards. 
9000 117 ; IMPLICIT OUTPUTS: 
9000119: _— 
9000 120 ; COMPLETION CODES: 
B208 : 1 3 NONE 
0000 1 ; ; SIDE EFFECTS: 
0000 124; NONE 
44 125 ; 
000 1 $ 3 
0000 127 ;-- 
44 128 
000 180 
0000 0090 : 1 ENTRY MTHSHSIGN, AM<> 
04 BC 08 BC rote 0002 1 ‘ MOVH @B( AP), @4(AP) ; Result = argl 
-— 4 00 134 BEQL RETURN 3 a7 = 0, do not transfer sign 
50 OC BC 4 oF EF OA 135 EXTZV #15, #1, @12(AP), RO 3; Get sign 
04ec 01 OF 50 FO 0010 1 6 INSV RO, #15, #1, a4(AP) ; Transfer 
04 18 1 RETURN: RET 
01 1 3 
Baie 1 
17 140 - END 


; H Floating Transfer of Sign Phe 19-36-1382 91: 38: $8 yan ives Be v04-00 Page 


MTHSHSIGN 5 
Symbol table MTHRTL SRE SATH HHSIGN.MAR; 1 (4) 


RETURN = ggg0o1e Rt 


! i _Psect synopsis ! 


ABS 0000000 < ) ) NOPIC USR CON ABS LCL = NOEXE NORD NOWRT NOVEC BYTE 
“MTHSCODE bo00001s ( 28:3 Bf ( 0.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


ewe mee wmoem mesa n nc emaneee $ 


! Performance indicators ! 


$eeecome enw eom ne noe aeaeea } 


Phase Page faults CPU Time Elapsed Time 
Initializati 6 :00:00.07 0:00:00.7 
EuNem  T RE 
Synbol table sort 0 tf 0: 0.00 9 
4 0:00:00.34 0:00:02.30 
ore table output 0: 8: 8:01 0:00:00.01 
Psect synopsis output 0:00:00.0 0:00:00.14 
Cross-reference output Bf 9-9 0:00:00.00 
Assembler run totals 27 0:00:01. 0:00:10.51 


The working set Limit was 900 pages. 

1398 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space ved ea + to hold 2 non-local and 0 local symbols. 
140 source Lines were read in Pass 1, progye tag 38 object records in Pass 2. 

Q pages of virtual memory were used to define 0 macros. 
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! Macro Library statistics ; 


fGeoeececoccoececsooecoesece 


Macro Library name Macros defined 
“S$255SDUAZB:(SYSLIBISTARLET.MLB32 0 ( itttt””StS~™S 0. 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


; 

| 
eaoreacmaa aaeenwesat 
PSECT name Allocation PSECT No. Attributes 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHHSIGN/OBJ=OBJ$:MTHHSIGN MSRC$:MTHHS1GN/UPDATE=(ENHS$ :MTHHS IGN) 


EQUIPMENT CORPORATION 


AH-BT13A-SE L 
ENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


026 


